The VPRO Digital Guide 1994/vpro.iso/vpro1/jg.dir/00027_LocalMOVIE Script.ls

Text File | 1994-08-28 | 7.9 KB | 300 lines

on LocalStartMovie
  global gHasExternals, gSpecNav, gHasMoney, gComingFromJG, FortySeven
  set gComingFromJG to 0
  set FortySeven to EMPTY
  if voidp(gHasMoney) then
    set gHasMoney to 1
  end if
  set gSpecNav to "1"
  set gHasExternals to 4
  if the frame > 19 then
    JGSetup()
  end if
  if the frame < 14 then
    repeat with i = 2 to 3
      set the visible of sprite i to 1
    end repeat
    repeat with i = 34 to 41
      set the visible of sprite i to 1
    end repeat
  end if
  set the visible of sprite 47 to 0
  puppetTransition(9, 1, 8)
end

on SetupInvisibles
  repeat with count = 1 to 21
    set the visible of sprite count to 0
  end repeat
end

on delay Factor
  set the timer to 1
  repeat while the timer < Factor
  end repeat
end

on SpecialNavigation
  global gHasExternals, Chars1and2, Chars1to3, Char3, Chars4and5, gDirection, gNext, gPrev, gSpecNav
  if (gNext = 1) or (gPrev = 1) then
    alert("Je kan daar hiervandaan niet heen!")
    set Chars4and5 to 0
    set Chars1to3 to "JG1"
  else
    if integer(gDirection) > 0 then
      set theMovie to Chars1and2 & integer(gHasExternals) + integer(gDirection)
      PlayExternalMovie(theMovie)
    else
      set gDirection to 1
    end if
  end if
end

on JGSetup
  global gStore, gVertOffset, gVertSprite, gLastState, gHorzlist, gVertlist, gCastlist, gCastframeList, gLastSound, gHasMoney
  SetupInvisibles()
  JGSetup2()
  if gHasMoney = 1 then
    set the visible of sprite 38 to 0
  else
    set the visible of sprite 38 to 1
  end if
  set gLastSound to "stop"
  set gHorzlist to "1991, 2241,1662,1993,1092,628,2357,1,1,2559,1570,2850,2363,2721,2100,1867"
  set gVertlist to "211, 418,426,412,344,428,710,1,1,432,388,370,412,417,10,662"
  set gCastlist to "15, 30,21,18,114,0,8,0,0,69,65,61,51,28,36,54"
  set gCastframeList to "1, 3 ,6 ,3 ,3 ,1 ,4,0,0,4,3,1,2,1,1,5"
  set the visible of sprite 11 to 1
  set gVertSprite to 11
  set gLastState to the mouseDown
  puppetSprite(29, 0)
  puppetSprite(30, 0)
  set the visible of sprite 48 to 1
end

on JGSetup2
  repeat with i = 22 to 37
    set the visible of sprite i to 0
    set the cursor of sprite i to 3
    puppetSprite(i, 1)
    set the locH of sprite i to -300
  end repeat
end

on hideObjects firstS, lastS
  if the castNum of sprite 30 = 100 then
    pauseMoov()
  end if
  repeat with i = firstS to lastS
    set the visible of sprite i to 0
    set the locH of sprite i to -300
  end repeat
end

on ShowObjects firstS, lastS
  global gVertSprite, gHorzlist, gVertlist, gCastlist, gCastframeList, gLastSound
  set Vert to the locV of sprite gVertSprite
  set Horz to the locH of sprite gVertSprite
  if the visible of sprite 29 then
    set the visible of sprite 32 to 0
  end if
  repeat with i = firstS to lastS
    set mijnindex to i - firstS + 1
    set PositionH to value(item mijnindex of gHorzlist) + Horz
    set PositionV to value(item mijnindex of gVertlist) + Vert
    if the visible of sprite 29 then
      set the visible of sprite 32 to 0
    end if
    if (PositionH > 0) and (PositionH < 640) then
      set the locH of sprite i to PositionH
      set the locV of sprite i to PositionV
      set NumFrames to value(item mijnindex of gCastframeList)
      if NumFrames > 1 then
        set temp to the castNum of sprite i + 1
        set Base to value(item mijnindex of gCastlist)
        if temp > (Base + NumFrames - 1) then
          set the castNum of sprite i to Base
        else
          set the castNum of sprite i to temp
        end if
      end if
      set the visible of sprite i to 1
      if the visible of sprite 29 then
        set the visible of sprite 32 to 0
      end if
      updateStage()
    end if
    PLaysounds()
  end repeat
end

on SlideV VoffSet
  global gVertSprite
  set the visible of sprite gVertSprite to 0
  set gVertSprite to gVertSprite + VoffSet
  if gVertSprite < 1 then
    set gVertSprite to 1
  end if
  if gVertSprite > 21 then
    set gVertSprite to 21
  end if
  set the visible of sprite gVertSprite to 1
end

on SlideAllover firstFrame, lastFrame, LmouseBorder, RmouseBorder, TopMouseBorder, BottomMouseBorder
  global gLastState, gLastSound
  if the mouseH < LmouseBorder then
    if the mouseV < TopMouseBorder then
      CursorTopLeft()
    else
      if the mouseV > BottomMouseBorder then
        CursorBotLeft()
      else
        CursorLeft()
      end if
    end if
  else
    if the mouseH > RmouseBorder then
      if the mouseV < TopMouseBorder then
        CursorTopRight()
      else
        if the mouseV > BottomMouseBorder then
          CursorBotRight()
        else
          CursorRight()
        end if
      end if
    else
      if the mouseV < TopMouseBorder then
        CursorUp()
      else
        if the mouseV > BottomMouseBorder then
          CursorDown()
        else
          cursor(-1)
        end if
      end if
    end if
  end if
  if the mouseDown then
    if the mouseV < TopMouseBorder then
      SlideV(-1)
      set vertscroll to 1
    else
      if the mouseV > BottomMouseBorder then
        SlideV(1)
        set vertscroll to 1
      else
        set vertscroll to 0
      end if
    end if
    if vertscroll then
      hideObjects(22, 37)
    end if
    if the mouseH < LmouseBorder then
      if not gLastState then
        hideObjects(22, 37)
      end if
      if the frame > firstFrame then
        go(the frame - 1)
      else
        go(lastFrame)
      end if
      set Horscroll to 1
    else
      if the mouseH > RmouseBorder then
        if not gLastState then
          hideObjects(22, 37)
        end if
        if the frame < lastFrame then
          go(the frame + 1)
        else
          go(firstFrame)
        end if
        set Horscroll to 1
      else
        set Horscroll to 0
        go(the frame)
        updateStage()
      end if
    end if
    if not (vertscroll or Horscroll) then
      ShowObjects(22, 37)
    end if
    set gLastState to vertscroll or Horscroll
  else
    ShowObjects(22, 37)
    go(the frame)
    set gLastState to 0
  end if
end

on PLaysounds
  global gLastSprite
  if rollOver(22) then
    set newSound to "digi kerkklok"
    set curSprite to 22
  else
    if rollOver(23) then
      set newSound to "Wklkoekepeer"
      set curSprite to 23
    else
      if rollOver(24) then
        set newSound to "deur dicht fancy"
        set curSprite to 24
      else
        if rollOver(25) then
          set newSound to "applaus hard.a"
          set curSprite to 25
        else
          if rollOver(26) then
            set newSound to "cart4.85 boek 5"
            set curSprite to 26
          else
            if rollOver(28) then
              set newSound to "putdeksel"
              set curSprite to 28
            else
              if rollOver(31) then
                set newSound to "cart5.15 politie"
                set curSprite to 31
              else
                if rollOver(33) then
                  set newSound to "bbc 10 vibra ok"
                  set curSprite to 33
                else
                  if rollOver(34) then
                    set newSound to "cart2.82 gil vrouw"
                    set curSprite to 34
                  else
                    if rollOver(35) then
                      set newSound to "cart1.29 olifant"
                      set curSprite to 35
                    else
                      if rollOver(36) then
                        set newSound to "ballon 2ok.a"
                        set curSprite to 36
                      else
                        if rollOver(37) then
                          set newSound to "cart1.1"
                          set curSprite to 37
                        else
                          set newSound to 0
                        end if
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  if curSprite <> gLastSprite then
    set gLastSprite to curSprite
    puppetSound(newSound)
  end if
end